(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      6338,        144]
NotebookOptionsPosition[      6023,        128]
NotebookOutlinePosition[      6366,        143]
CellTagsIndexPosition[      6323,        140]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"PunctEqPlot", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"PunctuatedEquilibrium", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"GraphicsGrid", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PunctEqPlot", "[", 
         RowBox[{"i", ",", "j"}], "]"}], ",", 
        RowBox[{"PunctEqPlot", "[", 
         RowBox[{"i", ",", "j"}], "]"}], ",", 
        RowBox[{"PunctEqPlot", "[", 
         RowBox[{"i", ",", "j"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PunctEqPlot", "[", 
         RowBox[{"i", ",", "j"}], "]"}], ",", 
        RowBox[{"PunctEqPlot", "[", 
         RowBox[{"i", ",", "j"}], "]"}], ",", 
        RowBox[{"PunctEqPlot", "[", 
         RowBox[{"i", ",", "j"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5863590760359726`*^9, 3.586359084754472*^9}, {
   3.5865088056672373`*^9, 3.586508871158983*^9}, {3.586508904463888*^9, 
   3.5865089056979585`*^9}, 3.5865089421410427`*^9, {3.5865092902119513`*^9, 
   3.5865092963483024`*^9}, {3.586510250860897*^9, 3.586510251164915*^9}, 
   3.5865104772448463`*^9, {3.586510597676734*^9, 3.5865106211440763`*^9}, {
   3.586510736737688*^9, 3.5865108279059024`*^9}, {3.5865114531086617`*^9, 
   3.586511483701412*^9}, {3.586511581444002*^9, 3.586511588780422*^9}, {
   3.586511863834154*^9, 3.586511871783609*^9}, 3.5865119420806293`*^9, {
   3.5865119992989025`*^9, 3.5865120065633183`*^9}, {3.586512042162354*^9, 
   3.586512074343195*^9}, {3.586512246801059*^9, 3.586512314499931*^9}, {
   3.5865123529191284`*^9, 3.5865124136176*^9}, 3.58666640430656*^9, {
   3.586710342040779*^9, 3.5867103478791122`*^9}, {3.5867104647487974`*^9, 
   3.586710473902321*^9}, {3.5867108046882405`*^9, 3.5867108156108656`*^9}, 
   3.5868436852244287`*^9, 3.5868559651117983`*^9, {3.5869697001622505`*^9, 
   3.5869697915944796`*^9}, {3.5870451302706738`*^9, 3.587045173347138*^9}, {
   3.587045231234449*^9, 3.5870452391809034`*^9}, {3.58704531517325*^9, 
   3.5870453317561984`*^9}, {3.58704545696836*^9, 3.5870454774315305`*^9}, {
   3.5872852825591536`*^9, 3.5872852862553644`*^9}, {3.5872854636045084`*^9, 
   3.5872855204097576`*^9}, {3.587285687683325*^9, 3.5872858494485774`*^9}, {
   3.587285971465556*^9, 3.587286020038335*^9}, {3.58728615090682*^9, 
   3.5872861529139347`*^9}, {3.5872862858065357`*^9, 3.58728631770536*^9}, {
   3.5872865698717833`*^9, 3.5872865719569025`*^9}, {3.5872890147756233`*^9, 
   3.587289023687134*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`i$$ = 0.74, $CellContext`j$$ = 1., 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`i$$], 0, 1}, {
      Hold[$CellContext`j$$], 0, 1}}, Typeset`size$$ = {1643., {331., 336.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`i$9578$$ = 0, $CellContext`j$9579$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`i$$ = 0, $CellContext`j$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`i$$, $CellContext`i$9578$$, 0], 
        Hold[$CellContext`j$$, $CellContext`j$9579$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> GraphicsGrid[{{
          $CellContext`PunctEqPlot[$CellContext`i$$, $CellContext`j$$], 
          $CellContext`PunctEqPlot[$CellContext`i$$, $CellContext`j$$], 
          $CellContext`PunctEqPlot[$CellContext`i$$, $CellContext`j$$]}, {
          $CellContext`PunctEqPlot[$CellContext`i$$, $CellContext`j$$], 
          $CellContext`PunctEqPlot[$CellContext`i$$, $CellContext`j$$], 
          $CellContext`PunctEqPlot[$CellContext`i$$, $CellContext`j$$]}}], 
      "Specifications" :> {{$CellContext`i$$, 0, 1}, {$CellContext`j$$, 0, 
         1}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{1694., {417., 422.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.587285471289948*^9, 3.587285527813181*^9}, 
   3.5872856408326454`*^9, {3.5872856838131037`*^9, 3.5872857112936754`*^9}, 
   3.5872858506936483`*^9, {3.5872860046644554`*^9, 3.587286023056507*^9}, 
   3.5872860653899283`*^9, 3.5872860997548943`*^9, 3.587286158169235*^9, {
   3.5872862734868307`*^9, 3.5872863212305617`*^9}, {3.5872863805309534`*^9, 
   3.587286396132846*^9}, {3.5872865497176304`*^9, 3.5872865724179287`*^9}, {
   3.587289025256223*^9, 3.587289035876831*^9}}]
}, Open  ]]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 2843, 55, 52, "Input"],
Cell[3425, 79, 2582, 46, 856, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
